Option Strict On
Option Explicit On 

Imports IP.Core.IPCommon
Imports System.Windows.Forms

Public Class C1DropDownFormUtil


    Public Shared Sub make_not_inputable_dropdown(ByVal i_c1drop_down As C1.Win.C1Input.C1DropDownControl)
        AddHandler i_c1drop_down.KeyPress, AddressOf c1drop_group_code_KeyPress
    End Sub

    Private Shared Sub c1drop_group_code_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        If e.KeyChar().IsControl(e.KeyChar()) Then Exit Sub
        Dim v_c1drop_down As C1.Win.C1Input.C1DropDownControl
        v_c1drop_down = CType(sender, C1.Win.C1Input.C1DropDownControl)
        Try
            e.Handled = True
            v_c1drop_down.FindForm().Enabled = False
            v_c1drop_down.OpenDropDown()
            v_c1drop_down.FindForm().Enabled = True
        Catch v_e As Exception
            CSystemLog_301.ExceptionHandle(v_e)
        End Try
    End Sub
End Class
